SET WIDTH 132
SET HEADER ON
SET PRINTBACK LISTING
GET FILE = 'C:\SPSS\V\BJPS87-1.SAV'/MAP
VAR LABELS ONE ONE, TO UNWEIGHT THE DATA
VAR LABELS PARTYID0 Party Identification
VAR LABELS POLVIEWS0 Ideological Identification
VAR LABELS POLKNOW0 Political Knowledge
VAR LABELS EDUC50 Respondent's Level of Education
VAR LABELS AGE0 Respondent's Age
VAR LABELS GENDER Respondent's Gender
VAR LABELS OWNHOME Respondent's Home Ownership?
VAR LABELS METRO Whether Respondent Lives in Metro Area
VAR LABELS ATTEND0 Respondent's Frequency of Church Attendance
VAR LABELS NB331 To Select Constant N for Black Respondents
VAR LABELS NW678 To Select Constant N for White Respondents
VALUE LABELS PARTYID0(0)Strong Democrat(1)Strong Republican
DISPLAY VARLIST
WEIGHT BY OVERSAMP
FREQUENCIES VARI = ALL/STAT=ALL
SUBTITLE PSYCHOMETRICS 1987
RELIABILITY VARI=                                                               
  RSAYNO1 TO RSAYNO5 
  /SCALE(LEGIT)= 
  RSAYNO1 TO RSAYNO5 
  /STAT=ALL/SUMM=ALL
FACTOR VARI=
  RSAYNO1 TO RSAYNO5 
   /PRINT=ALL/
   FORMAT=SORT/CRIT=ITERATE(400) /EXTRA=PAF /ROTATE = OBLIMIN

SUBTITLE FIGURE 1, 1987, BLACK FREEDOM
* Most graphs are run without formating, then rerun with formating for 
  the paper. 
TEMPORARY
WEIGHT BY ONE
VAR LABELS MEFREE Percentage Not Feeling Free to Speak Their Minds
RECODE MEFREE (0=1)(1=0)
COMPUTE MEFREE = MEFREE * 100
VALUE LABELS BLACK(0)African Americans(1)White People
VAR LABELS BLACK Respondent's Race
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( MEFREE ) BY BLACK
  / INTERVAL CI (95)

TEMPORARY
WEIGHT BY ONE
VAR LABELS MEFREE Percentage Not Feeling Free to Speak Their Minds
RECODE MEFREE (0=1)(1=0)
COMPUTE MEFREE = MEFREE * 100
VALUE LABELS BLACK(0)African Americans(1)White People
VAR LABELS BLACK Respondent's Race
GRAPH
  /TEMPLATE =     'C:\wS2000\FIG 1, 1987.SGT'
  /BAR (SIMPLE)= MEAN ( MEFREE ) BY BLACK
  / INTERVAL CI (95)

TEMPORARY
WEIGHT BY ONE
VAR LABELS MEFREE Percentage Not Feeling Free to Speak Their Minds
RECODE MEFREE (0=1)(1=0)
COMPUTE MEFREE = MEFREE * 100
VALUE LABELS BLACK(0)African Americans(1)White People
VAR LABELS BLACK Respondent's Race
SELECT IF (BLACK NE 3)
MEANS TABLES = MEFREE BY BLACK RACE/STAT=ALL

WEIGHT BY OVERSAMP
TITLE FULL POPULATION ANALYSIS
SUBTITLE FIGURE 3, 1987, BLACK FREEDOM PAPER
FREQUENCIES VARI =  RSAYNO1 TO RSAYNO5
  /STAT=ALL
TEMPORARY
COMPUTE RSAYNO1 = (RSAYNO1 * 100)
COMPUTE RSAYNO2 = (RSAYNO2 * 100)
COMPUTE RSAYNO3 = (RSAYNO3 * 100)
COMPUTE RSAYNO4 = (RSAYNO4 * 100)
COMPUTE RSAYNO5 = (RSAYNO5 * 100)
VAR LABELS RSAYNO1 To My Family
VAR LABELS RSAYNO2 To My Friends
VAR LABELS RSAYNO3 To My Co-Workers
VAR LABELS RSAYNO4 To Casual Acquaintences
VAR LABELS RSAYNO5 To My Neighbors 
GRAPH
   /TEMPLATE =     'C:\wS2000\PURPLE BAR3.SGT'
  /BAR (SIMPLE)= MEAN (RSAYNO1 TO RSAYNO5) 
  / INTERVAL CI (95)
TEMPORARY
COMPUTE RSAYNO1 = (RSAYNO1 * 100)
COMPUTE RSAYNO2 = (RSAYNO2 * 100)
COMPUTE RSAYNO3 = (RSAYNO3 * 100)
COMPUTE RSAYNO4 = (RSAYNO4 * 100)
COMPUTE RSAYNO5 = (RSAYNO5 * 100)
VAR LABELS RSAYNO1 To My Family
VAR LABELS RSAYNO2 To My Friends
VAR LABELS RSAYNO3 To My Co-Workers
VAR LABELS RSAYNO4 To Casual Acquaintences
VAR LABELS RSAYNO5 To My Neighbors 
GRAPH
   /TEMPLATE =     'C:\wS2000\FIG 3, 1987.SGT'
  /BAR (SIMPLE)= MEAN (RSAYNO1 TO RSAYNO5) 
  / INTERVAL CI (95)


SORT CASES BY BLACK
SPLIT FILE BY BLACK
WEIGHT BY ONE
TITLE VARIABLES IN REGRESSION
TITLE TABLE 1, 1987
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX
  PARTYID0 
  PARTYIDS
  POLVIEWS0
  POLVIEWSS
  LIKDIF2
  POLKNOW0
  EDUC50 
  AGE0
  GENDER 
  OWNHOME 
  INCOME0 
  METRO SOUTH 
  ATTEND0
  OPLEADD

  /stat=r anova cha coeff zpp ses label f COLLIN TOL 
  /DEPE= RELUCTANTX 
  /ENTER = PARTYID0 TO OPLEADD
TITLE TABLE D-1, 1987
DESCRIPTIVES VARI =
  RELUCTANTX 
  PARTYID0 
  PARTYIDS
  POLVIEWS0
  POLVIEWSS
  LIKDIF2
  POLKNOW0
  EDUC50 
  AGE0
  GENDER 
  OWNHOME 
  INCOME0 
  METRO SOUTH 
  ATTEND0
  OPLEADD
  /STAT=MEAN STDDEV MIN MAX/MISS=LIST

SPLIT FILE OFF
TITLE TABLE 1, 1987, SINGLE INTEGRATED EQUATION
FREQUENCIES VARI = NB331 NW678
SUBTITLE CREATE INTERACTIVE VARIABLES
DESCRIPTIVES VARI =
  RELUCTANTX
  RELUCTANTNOTC 
  PARTYID0 
  PARTYIDS
  POLVIEWS0
  POLVIEWSS
  LIKDIF2
  POLKNOW0
  EDUC50 
  AGE0
  GENDER 
  OWNHOME 
  INCOME0 
  METRO SOUTH 
  ATTEND0
  OPLEADD
  /STAT=MEAN STDDEV MIN MAX/MISS=LIST
FREQUENCIES VARI =
  RELUCTANTX RELUCTANTNOTC 
  PARTYID0 
  PARTYIDS
  POLVIEWS0
  POLVIEWSS
  LIKDIF2
  POLKNOW0
  EDUC50 
  AGE0
  GENDER 
  OWNHOME 
  INCOME0 
  METRO SOUTH 
  ATTEND0
  OPLEADD
  /STAT=MEAN STDDEV MIN MAX
DO REPEAT MAC1=
  PARTYID0 
  PARTYIDS
  POLVIEWS0
  POLVIEWSS
  LIKDIF2
  POLKNOW0
  EDUC50 
  AGE0
  GENDER 
  OWNHOME 
  INCOME0 
  METRO 
  SOUTH 
  ATTEND0
  OPLEADD

  /MAC2=
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BLIKDIF2
  BPOLKNOW0
  BEDUC50 
  BAGE0
  BGENDER 
  BOWNHOME 
  BINCOME0 
  BMETRO 
  BSOUTH 
  BATTEND0
  BOPLEADD

  /MAC3=
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
  BLACK
COMPUTE MAC2= MAC3 * MAC1
END REPEAT PRINT
FREQUENCIES VARI = 
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BLIKDIF2
  BPOLKNOW0
  BEDUC50 
  BAGE0
  BGENDER 
  BOWNHOME 
  BINCOME0 
  BMETRO 
  BSOUTH 
  BATTEND0
  BOPLEADD
  BLACK
  /STAT=ALL
SUBTITLE WEIGHTED BY JOINT B & W
WEIGHT BY OVERSAMP
REGRESSION MISS=LIST/DESC=ALL/VARI=
  RELUCTANTX
  PARTYID0 
  PARTYIDS
  POLVIEWS0
  POLVIEWSS
  LIKDIF2
  POLKNOW0
  EDUC50 
  AGE0
  GENDER 
  OWNHOME 
  INCOME0 
  METRO SOUTH 
  ATTEND0
  OPLEADD
  BLACK
  BPARTYID0
  BPARTYIDS 
  BPOLVIEWS0
  BPOLVIEWSS
  BLIKDIF2
  BPOLKNOW0
  BEDUC50 
  BAGE0
  BGENDER 
  BOWNHOME 
  BINCOME0 
  BMETRO 
  BSOUTH 
  BATTEND0
  BOPLEADD

  /stat=r anova cha coeff zpp ses label f COLLIN TOL 
  /DEPE= RELUCTANTX 
  /ENTER = PARTYID0 TO OPLEADD
  /ENTER=BLACK
  /ENTER=
  BPARTYID0 TO BOPLEADD

TITLE FIGURE 5, 1987
VAR LABELS RELUCTANTX Average Reluctance to Speak Out

TEMPORARY
SELECT IF (NB331 EQ 0 OR NW678 EQ 0)
WEIGHT BY ONE
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY PARTYID BY BLACK
  / INTERVAL CI (95)
TEMPORARY
SELECT IF (NB331 EQ 0 OR NW678 EQ 0)
WEIGHT BY ONE
GRAPH
   /TEMPLATE =     'C:\wS2000\BJPS, F5.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY PARTYID BY BLACK
  / INTERVAL CI (95)

TEMPORARY
SELECT IF (NB331 EQ 0 OR NW678 EQ 0)
WEIGHT BY ONE
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY POLVIEWS BY BLACK
  / INTERVAL CI (95)
FREQUENCIES VARI = RELUCTANTNOTC RELUCTANTC /STAT=ALL

TEMPORARY
SELECT IF (NB331 EQ 0)
WEIGHT BY ONE
GRAPH
  /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /BAR (SIMPLE)= MEAN ( RELUCTANTX ) BY PARTYID
  / INTERVAL CI (95)
SUBTITLE Notes to Figure 5, Difference of Means
TEMPORARY
SELECT IF (NB331 EQ 0)
WEIGHT BY ONE
MEANS TABLES = RELUCTANTX BY PARTYID POLVIEWS/STAT=ALL
TEMPORARY
SELECT IF ( NW678 EQ 0)
WEIGHT BY ONE
MEANS TABLES = RELUCTANTX BY PARTYID POLVIEWS/STAT=ALL
VAR LABELS AGECAT Respondent Age
TITLE FIGURE 6, 1987
TEMPORARY
SELECT IF (NB331 EQ 0)
WEIGHT BY ONE
MEANS TABLES = RELUCTANTX BY AGE0 AGECAT  /STAT=ALL

TEMPORARY
SELECT IF (NW678 EQ 0)
WEIGHT BY ONE
MEANS TABLES = RELUCTANTX BY AGE0 AGECAT  /STAT=ALL
TEMPORARY
SELECT IF (NB331 EQ 0 OR NW678 EQ 0)
WEIGHT BY ONE
GRAPH
   /TEMPLATE =     'C:\wS2000\Purple Bar3.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY AGECAT BY BLACK
  / INTERVAL CI (95)
TEMPORARY
SELECT IF (NB331 EQ 0 OR NW678 EQ 0)
WEIGHT BY ONE
GRAPH
   /TEMPLATE =     'C:\wS2000\Fig 6, 1987.SGT'
  /LINE (SIMPLE)= MEAN ( RELUCTANTX ) BY AGECAT BY BLACK
  / INTERVAL CI (95)
*conpute is used to terminate the batch run
CONPUTE
